home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / HyperCard 2.0 / HyperCard / HyperCard.rsrc / XCMD_0_Flash.txt < prev    next >
Text File  |  1990-08-31  |  5KB  |  100 lines
  1. start:
  2. 00000000  4E56 0000                link       A6, 0
  3. 00000004  2F2E 0008                move.l     -[A7], [A6 + 0x8]
  4. 00000008  4EBA 0008                jsr        [PC + 0x8 /* 00000012 */]
  5. 0000000C  4E5E                     unlink     A6
  6. 0000000E  2E9F                     move.l     [A7], [A7]+
  7. 00000010  4E75                     rts
  8. fn00000012:
  9. 00000012  4E56 FEF2                link       A6, -0x010E
  10. 00000016  48E7 0708                movem.l    -[A7], D5,D6,D7,A4
  11. 0000001A  286E 0008                movea.l    A4, [A6 + 0x8]
  12. 0000001E  4247                     clr.w      D7
  13. 00000020  7001                     moveq.l    D0, 0x01
  14. 00000022  B054                     cmp.w      D0, [A4]
  15. 00000024  6E20                     bgt        +0x22 /* 00000046 */
  16. 00000026  2F0C                     move.l     -[A7], A4
  17. 00000028  206C 0002                movea.l    A0, [A4 + 0x2]
  18. 0000002C  2F10                     move.l     -[A7], [A0]
  19. 0000002E  486E FEF8                pea.l      [A6 - 0x108]
  20. 00000032  4EBA 009A                jsr        [PC + 0x9A /* 000000CE */]
  21. 00000036  42A7                     clr.l      -[A7]
  22. 00000038  2F0C                     move.l     -[A7], A4
  23. 0000003A  486E FEF8                pea.l      [A6 - 0x108]
  24. 0000003E  4EBA 004E                jsr        [PC + 0x4E /* 0000008E */]
  25. 00000042  201F                     move.l     D0, [A7]+
  26. 00000044  3E00                     move.w     D7, D0
  27. label00000046:
  28. 00000046  7001                     moveq.l    D0, 0x01
  29. 00000048  B047                     cmp.w      D0, D7
  30. 0000004A  6F02                     ble        +0x4 /* 0000004E */
  31. 0000004C  7E03                     moveq.l    D7, 0x03
  32. label0000004E:
  33. 0000004E  486E FFF8                pea.l      [A6 - 0x8]
  34. 00000052  A874                     syscall    GetPort
  35. 00000054  3007                     move.w     D0, D7
  36. 00000056  E340                     asl        D0.w, 1
  37. 00000058  3D40 FEF2                move.w     [A6 - 0x10E], D0
  38. 0000005C  7C01                     moveq.l    D6, 0x01
  39. 0000005E  601E                     bra        +0x20 /* 0000007E */
  40. label00000060:
  41. 00000060  42A7                     clr.l      -[A7]
  42. 00000062  A975                     syscall    TickCount
  43. 00000064  2A1F                     move.l     D5, [A7]+
  44. 00000066  5885                     addq.l     D5, 4
  45. 00000068  206E FFF8                movea.l    A0, [A6 - 0x8]
  46. 0000006C  4868 0010                pea.l      [A0 + 0x10]
  47. 00000070  A8A4                     syscall    InvertRect
  48. label00000072:
  49. 00000072  42A7                     clr.l      -[A7]
  50. 00000074  A975                     syscall    TickCount
  51. 00000076  BA9F                     cmp.l      D5, [A7]+
  52. 00000078  6EF8                     bgt        -0x6 /* 00000072 */
  53. 0000007A  5246                     addq.w     D6, 1
  54. 0000007C  6906                     bvs        +0x8 /* 00000084 */
  55. label0000007E:
  56. 0000007E  BC6E FEF2                cmp.w      D6, [A6 - 0x10E]
  57. 00000082  6FDC                     ble        -0x22 /* 00000060 */
  58. label00000084:
  59. 00000084  4CDF 10E0                movem.l    D5,D6,D7,A4, [A7]+
  60. 00000088  4E5E                     unlink     A6
  61. 0000008A  2E9F                     move.l     [A7], [A7]+
  62. 0000008C  4E75                     rts
  63. fn0000008E:
  64. 0000008E  4E56 FF00                link       A6, -0x0100
  65. 00000092  2F0C                     move.l     -[A7], A4
  66. 00000094  206E 0008                movea.l    A0, [A6 + 0x8]
  67. 00000098  43EE FF00                lea.l      A1, [A6 - 0x100]
  68. 0000009C  703F                     moveq.l    D0, 0x3F
  69. label0000009E:
  70. 0000009E  22D8                     move.l     [A1]+, [A0]+
  71. 000000A0  51C8 FFFC                dbf        D0, -0x6 /* 0000009E */
  72. 000000A4  286E 000C                movea.l    A4, [A6 + 0xC]
  73. 000000A8  41EE FF00                lea.l      A0, [A6 - 0x100]
  74. 000000AC  2948 0050                move.l     [A4 + 0x50], A0
  75. 000000B0  397C 000A 004C           move.w     [A4 + 0x4C], 0xA /* '\n' */
  76. 000000B6  2F2C 0048                move.l     -[A7], [A4 + 0x48]
  77. 000000BA  205F                     movea.l    A0, [A7]+
  78. 000000BC  4E90                     jsr        [A0]
  79. 000000BE  2D6C 0070 0010           move.l     [A6 + 0x10], [A4 + 0x70]
  80. 000000C4  285F                     movea.l    A4, [A7]+
  81. 000000C6  4E5E                     unlink     A6
  82. 000000C8  205F                     movea.l    A0, [A7]+
  83. 000000CA  504F                     addq.w     A7, 8
  84. 000000CC  4ED0                     jmp        [A0]
  85. fn000000CE:
  86. 000000CE  4E56 0000                link       A6, 0
  87. 000000D2  2F0C                     move.l     -[A7], A4
  88. 000000D4  286E 0010                movea.l    A4, [A6 + 0x10]
  89. 000000D8  296E 000C 0050           move.l     [A4 + 0x50], [A6 + 0xC]
  90. 000000DE  296E 0008 0054           move.l     [A4 + 0x54], [A6 + 0x8]
  91. 000000E4  397C 0008 004C           move.w     [A4 + 0x4C], 0x8
  92. 000000EA  2F2C 0048                move.l     -[A7], [A4 + 0x48]
  93. 000000EE  205F                     movea.l    A0, [A7]+
  94. 000000F0  4E90                     jsr        [A0]
  95. 000000F2  285F                     movea.l    A4, [A7]+
  96. 000000F4  4E5E                     unlink     A6
  97. 000000F6  205F                     movea.l    A0, [A7]+
  98. 000000F8  DEFC 000C                add.w      A7, 0xC
  99. 000000FC  4ED0                     jmp        [A0]
  100.